50 REM Triangles by Brian Rumbelow
100 PROTECT 0
110 CLS 
120 FOR D=1 TO 6
130   INK D
140   READ X,Y,A,B
150   EXT TRIANGLE 127,124,X,Y,A,B
160 NEXT D
170 GOTO 170
180 DATA 177,44,77,44
190 DATA 207,124,177,44
200 DATA 207,124,177,204
210 DATA 177,204,77,204
220 DATA 44,124,77,204
230 DATA 44,124,77,44
